object frmDisksSelection: TfrmDisksSelection Left = 646 Top = 122 Width = 643 Height = 420 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] OldCreateOrder = False Scaled = False OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 144 TextHeight = 16 object pnlDisksSelection: TPanel Left = 0 Top = 0 Width = 635 Height = 387 Align = alClient BevelOuter = bvNone Color = clWhite TabOrder = 0 DesignSize = ( 635 387) object imgWatermarkPage: TImage Left = 286 Top = 260 Width = 349 Height = 127 Anchors = [akRight, akBottom] AutoSize = True end object lblTitle: TAxLabel Left = 32 Top = 16 Width = 385 Height = 19 WordWrap = False Quality = smMMXSmoothing4x Layout = tlCenter Transparent = False Caption = 'Make sure your deleted files cannot be restored' Font.Charset = DEFAULT_CHARSET Font.Color = 10040064 Font.Height = -16 Font.Name = 'Verdana' Font.Style = [] ShowAccelChar = True ParentFont = False end object lblClickNext: TLabel Left = 32 Top = 360 Width = 227 Height = 16 Caption = 'Select disks and click Next to continue' Transparent = True end object lblDescription: TLabel Left = 32 Top = 61 Width = 566 Height = 60 AutoSize = False Caption = 'Even when you delete a file, it can be still be restored. This p' + 'rogram wipes free space on the disks to completely...' WordWrap = True end object lblSelectDisks: TLabel Left = 32 Top = 138 Width = 406 Height = 16 Caption = 'Select the disks, which free space should be wiped (F5 to update' + ' list):' end object imgBlueStripe: TImage Left = 482 Top = 29 Width = 90 Height = 8 AutoSize = True Picture.Data = {} Visible = False end object imgRedStripe: TImage Left = 482 Top = 13 Width = 90 Height = 8 AutoSize = True Picture.Data = {} Visible = False end object lvDisks: TListView Left = 32 Top = 159 Width = 572 Height = 165 Checkboxes = True Columns = < item Caption = 'Name' Width = 210 end item Alignment = taRightJustify Caption = 'Total Size' Width = 200 end item Alignment = taRightJustify AutoSize = True Caption = 'Free Space' end> ColumnClick = False ReadOnly = True RowSelect = True PopupMenu = pmDisks TabOrder = 0 ViewStyle = vsReport OnChange = lvDisksChange OnCustomDrawSubItem = lvDisksCustomDrawSubItem OnKeyUp = lvDisksKeyUp end end object pmDisks: TPopupMenu OnPopup = pmDisksPopup Left = 534 Top = 105 object pmiSelectAll: TMenuItem Caption = 'Select All' OnClick = pmiSelectAllClick end object pmiUnselectAll: TMenuItem Caption = 'Unselect All' OnClick = pmiUnselectAllClick end object pmiInvertSel: TMenuItem Caption = 'Invert Selection' OnClick = pmiInvertSelClick end end end